IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/paudsc4.scr

Text File | 1994-09-15 | 791 b | 34 lines

@thread PAUDSC4.LOG
@NewAlias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING PAUDSC4"
cd set SECTORSTART=10000 SECTORCOUNT=35000
cd set ADDRESSMODE=LOGICALBLOCK
cd CDROM_OPEN
cd CDROM_PLAYAUDIO
cd response $PROMPT="PLAYING AUDIO FOR 2 MINUTES" $PAUSE=120
cd CDROM_STOPAUDIO
cd CDROM_CLOSE
@flush cd
*
*
*
@thread PAUDSC4.LOG
@NewAlias CD1 CDROM.GRA
@IMPORT SYSINFO2.TXT
cd1 LOG $PROMPT="LOGGING PAUDSC4"
cd1 LOG $PROMPT="THREAD 2"
cd1 response $PROMPT="WAITING FOR 15 SECONDS" $PAUSE=15
@loop 5
cd1 CDROM_OPEN
cd1 CDROM_QUERYAUDIODISKINFO
cd1 set $COUNT=$(HIGHTRACK)
cd1 response $PROMPT="QUERYING AUDIO TRACK INFO" $PAUSE=1
@loop 3
cd1 set track=$($COUNT)
cd1 CDROM_QUERYAUDIOTRACKINFO
cd1 DECREMENT
@endloop
cd1 CDROM_CLOSE
@endloop
@flush cd1